home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / games / bub.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  42 lines
  1. 1000 '
  2. 1010 ' ＴＢＩＯＳ改造プログラム
  3. 1020 '
  4. 1030 CLS
  5. 1040 PRINT "＊＊＊バブルボブル横長":PRINT 
  6. 1050 PRINT "ディスクをＡドライブに入れて何かキーを押して下さい"
  7. 1060 WHILE INKEY$="":WEND
  8. 1070 '
  9. 1080 OPEN "R",#1,"(1)\tbios.bin"
  10. 1090 FIELD #1,1 AS DT$
  11. 1100 '
  12. 1110 ADR=&HF70 'L10のTBIOSでは&HF90
  13. 1120 '
  14. 1130 FOR I=1 TO 5
  15. 1140  READ REGSET,NUM
  16. 1150  FOR J=1 TO NUM
  17. 1160   READ REG,DAT:OFST=ADR+64*(REGSET-1)+REG*2+1
  18. 1170   LSET DT$=CHR$(DAT MOD 256):PUT #1,OFST
  19. 1180   LSET DT$=CHR$(DAT \ 256):PUT #1
  20. 1190  NEXT
  21. 1200 NEXT
  22. 1210 CLOSE
  23. 1220 END
  24. 1230 '
  25. 1240 ' レジスタセット２０(ハイスキャン 5+5)
  26. 1250 DATA 20,16
  27. 1260 DATA 0,80,1,590,4,669,29,3,9,130,18,130,10,642,11,130,22,130,12,642
  28. 1270 DATA 9,66,10,322,11,66,12,322,18,66,22,66
  29. 1280 ' レジスタセット２９(ハイスキャン 5+10)
  30. 1290 DATA 29,16
  31. 1300 DATA 0,80,1,590,4,669,29,3,9,130,18,130,10,642,11,130,22,130,12,642
  32. 1310 DATA 9,66,10,386,11,66,12,322,18,66,22,66
  33. 1320 ' レジスタセット１７(インタレース 7+7)
  34. 1330 DATA 17,1
  35. 1340 DATA 27,&h0404
  36. 1350 ' レジスタセット１８(ロースキャン 8+8)
  37. 1360 DATA 18,7
  38. 1370 DATA 27,&h0404,9,273,10,1413,11,273,12,1413,18,273,22,273
  39. 1380 ' レジスタセット２５(ロースキャン 8+11)
  40. 1390 DATA 25,1
  41. 1400 DATA 27,&h0404
  42.